Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d15/grkami2.arc/GMKAMI.SMM

INI File | 1991-05-09 | 4.4 KB | 486 lines

[ver]
    4
[sty]

[files]
[prn]
    Epson 9 pin
[lang]
    1
[desc]





    673651644
    28
    661024420
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
[docopts]
    5
    0
[tag]
    Body Text
    2
    [fnt]
        Tms Rmn
        160
        0
        49152
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0

        0
        1
        0
        0
        1
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[tag]
    footer
    3
    [fnt]
        Tms Rmn
        200
        0
        49152
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0

        0
        1
        0
        0
        1
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1080
        360
        1
        1080
        720
        4
        1
        0
        1
        8
        4
        1
        1080
        11520
        14
        1
        359
        1
        721
        1
        1084
        1
        1446
        1
        1792
        1
        2155
        1
        2517
        1
        2880
        1
        3242
        1
        3605
        1
        3967
        1
        4323
        1
        4683
        1
        5043
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1080
        1
        1
        3
        1
        5
        0
        0
    [frmlay]
        1080
        12240
        1
        360
        0
        1
        0
        0
        2
        1
        0
        1
        1
        0
        1
        360
        12240
        3
        1
        365
        2
        6120
        3
        11162
    [txt]
<+B>

<+B>

<+B>    <:da<*!><* >>        Date Created:  <:da<*$><* >>

<+B>    By Charlie Pappas    Page - <:P11,1,>    Date Last revised:  <:da<*%><* >>

<+B>

>
    [frght]
    [lyfrm]
        1
        13248
        0
        15480
        12240
        15840
        1
        1
        3
        1
        5
        0
        0
    [frmlay]
        15840
        12240
        1
        720
        0
        1
        15480
        720
        2
        1
        0
        1
        1
        0
        1
        720
        11520
        0
    [txt]
@footer@
>
[elay]
[l1]
    0
[edoc]
function grammar()


<:f240,2Tms Rmn,0,0,0>'This macro places a menu item called "Grammatik"
as the last item on the tools menu.  Selecting the menu loads the
current Amipro file in Grammatik for grammar checking.  When you close
Grammatik, Pro will load the corrected file.


<:f240,2Tms Rmn,0,0,0>'Note on Autoexec.smm.  You can have Amipro
automatically start this macro.  To do this, you must create a file
containing the following text omitting the quotes.


<:f240,2Tms Rmn,0,0,0>'Function auto()

<:f240,2Tms Rmn,0,0,0>'call gmkami<:f><:f240,2Tms Rmn,0,0,0>.smm!grammar()

<:f240,2Tms Rmn,0,0,0>'End Function


<:f240,2Tms Rmn,0,0,0>'Save the file as Autoexec.SMM in the docs directory
(or amipro directory).



ignorekeyboard(1)

macro = "gmkami.smm"

mpath = getmacpath$()

DeleteMenuItem(1 "Too&ls" "Gra&mmatik")

AddMenuItem(1 "Too&ls" "Gra&mmatik" "{mpath}{macro}!checkit")

end function


function checkit()

oncancel endit

onerror endit

declare quitap()

getdocname:

xname = GetDocDesc$(1)

name = GetOpenFileName$()

if name = "" then

    go = multidecide("You must save your document first." 1)

    if go <<>> 1 then

        exit function

    endif

    save

    goto getdocname

else

    if (true = filechanged(0 0))

        save()

    endif

endif

darkmode(on)

exec("GMKW.EXE" "-i {name}")

quitap()

ignorekeyboard(1)

fileopen(name amifile "")

endit:

ignorekeyboard(0)

darkmode(off)

end function


function Quitap()

onerror endit

oncancel endit

FindWindow = DLLLocate("User", "FindWindow", "ICC")

hWnd = DLLCall(FindWindow, "grammatik", "grammatik")

while (hwnd)

    pause(010)

    hWnd = DLLCall(FindWindow, "grammatik", "grammatik")

wend

return 1

endit:

darkmode(off)

End FUNCTION


>
[macsum] 3
grammar 0 0 3 0
checkit 148 0 4 20
Quitap 529 0 3 49
[macse]
14 grammar
0 32 1
7 "gmkami.smm"
8 1
0 295
13
8 2
0 520 1 "Too&ls" "Gra&mmatik"
0 516 1 "Too&ls" "Gra&mmatik" "{2}{1}!checkit"
6 0
15
9
14 checkit
19 00000352
20 00000352
0 279 1
13
8 1
0 267
13
8 2
6 2
7 ""
18 0
11 00000231
0 21 "You must save your document first." 1
13
8 3
6 3
5 1
18 1
11 00000197
6 0
15
9
24 103
10 00000038
10 00000278
5 1
0 34 0 0
13
18 0
11 00000278
2 103 1
0 292 1
0 22 "GMKW.EXE" "-i {2}"
16 quitap
0 32 1
2 102 1 "{2}" 1 ""
0 32 0
0 292 0
6 0
15
9
14 Quitap
20 00000225
19 00000225
0 283 "User" "FindWindow" "ICC"
13
8 1
0 284 "{1}" "grammatik" "grammatik"
13
8 2
6 2
11 00000213
0 274 010
0 284 "{1}" "grammatik" "grammatik"
13
8 2
10 00000125
5 1
15
9
0 292 0
6 0
15
9
00003667